home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_1001_Button < prev    next >
Encoding:
Text File  |  1990-03-23  |  652 b   |  45 lines

  1. %case uses%
  2. %case instance%
  3.     %itemname%:%    %CButton;
  4. %case create%
  5.     
  6.     New (%itemname%);
  7.     %itemname%.IButton (%cntlID%, enclosure, supervisor);
  8. %case itemNr%
  9.     %DefineItem%
  10. %case dialog field%
  11.     %Enable?%
  12. %case init field%
  13.     %Enable?%
  14. %case auxiliary%
  15.     %if OK%
  16.     %elsif Cancel%
  17.     %else%
  18.         {----------}
  19.         Procedure Do%Itemname%;
  20.         Begin
  21.         End; {Do%Itemname%}
  22.     
  23.     %end if%
  24. %case filter%
  25. %case set%
  26. %case enable%
  27.     %Enable?%
  28. %case hit%
  29.     %if OK%
  30.         %Itemname%: begin
  31.             result := true;
  32.             done := true;
  33.         end;
  34.     %elsif Cancel%
  35.         %Itemname%: begin
  36.             result := false;
  37.             done := true;
  38.         end;
  39.     %else%
  40.         %Itemname%: begin
  41.             Do%Itemname%;
  42.         end;
  43.     %end if%
  44. %case finish%
  45.